www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_select_upload_pic.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="css.css" type=text/css rel=stylesheet> <% dir_set="../" %> <!--#include file=../inc/conn.asp--> <!--#include file=../inc/Functionb.asp--> <!--#include file=inc/checkadmin1.asp--> <!--#include file=../inc/ajaxLIB.asp--> <!--#include file=../inc/functionFiless.asp--> <!--#include file=../inc/ND_class_function.asp--> <% AJAXshowLoader() %> <% sssp=request("fpath") if sssp<>"" then sssspq=split(sssp,"/") ooosss="" sssr=ubound(sssspq)-1 dddds=sssspq(sssr) end if Function RelativePath2RootPath(url) Dim sTempUrl sTempUrl = url If Left(sTempUrl, 1) = "/" Then RelativePath2RootPath = sTempUrl Exit Function End If Dim m_strPath m_strPath = Request.ServerVariables("SCRIPT_NAME") m_strPath = Left(m_strPath, InStrRev(m_strPath, "/") - 1) Do While Left(sTempUrl, 3) = "../" sTempUrl = Mid(sTempUrl, 4) m_strPath = Left(m_strPath, InStrRev(m_strPath, "/") - 1) Loop RelativePath2RootPath = m_strPath & "/" & sTempUrl End Function %> <div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 20px; height: 40px;"> <script language="javascript"> function outd(ss) { window.opener.document.all.myform.ImageUrl.value= ss; window.close(); } </script> </div> <br /><br /> <div id="l_path" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 30px;"> <table width=730 > <tr> <td> 当前路径:/uploadfile/image/<%=request("fpath")%> </td> </tr> </table> </div> <br /><br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <table height="107" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999"> <% set filea=new Cls_FSO set fileb=new DosAsp if filea.ReportFolderStatus(server.mappath("../uploadfile/image/"))=1 then call list_cst_label() else %> <script language="javascript"> alert("目录不存在,即将创建"); </script> <% call createfile("../uploadfile/image/test.asp","1111",true) call deletefile("../uploadfile/image/test.asp") call list_cst_label() end if nofolder=0 nofiles=0 function list_cst_label() ss3=filea.ShowFolderList(server.mappath("../uploadfile/image/"&request("fpath"))) ss4=filea.ShowFileList(server.mappath("../uploadfile/image/"&request("fpath"))) if ss3=-1 or ss3="" then nofolder=1 else ss3=left(ss3,len(ss3)-1)'去掉最后一个|号 '处理文件夹 fl1=split(ss3,"|") numf1=ubound(fl1)+1 end if if ss4=-1 or ss4="" then nofiles=1 else ss4=left(ss4,len(ss4)-1) '去掉最后一个|号 '处理文件 fl2=split(ss4,"|") numf2=ubound(fl2)+1 end if 'response.write numf1+numf2 redim flst(numf1+numf2,2) for i=0 to numf1-1 flst(i,0)=fl1(i) flst(i,1)=0 '=0表示文件夹 next for i=numf1 to numf1+numf2-1 ii=i-numf1 flst(i,0)=fl2(ii) flst(i,1)=1 '=1表示文件 next yy=5 xx=2 per_p=xx*yy if request("page")="" then npage=1 else npage=cint(request("page")) end if ptr=0 for iip=1 to npage-1 ptr=ptr+per_p next %> <tr width=730 align=left height=60> <td> <% sssp=request("fpath") sssspq=split(sssp,"/") ooosss="" for iii=0 to ubound(sssspq)-2 ooosss=ooosss&sssspq(iii)&"/" next %> <a href="D_select_upload_pic.asp?fpath=<%=ooosss%>"> <img src="IMG/Folder/folder.gif" border=0>(返回上一级目录) </a> </td> </tr> <% for ix=1 to xx if (ptr-(npage-1)*per_p)>(per_p-1) or ptr>numf1+numf2-1 then exit for %> <tr width=730 align=center> <% for iy=1 to yy if (ptr-(npage-1)*per_p)>(per_p-1) or ptr>numf1+numf2-1 then exit for %> <td width=50 align=center> <table width=150 style="word-break:break-all"> <tr> <td> <% if request("fpath")="" then fph=replace(flst(ptr,0),"&","----")&"/" else sssd="/" if instr(request("fpath"),"/")<>0 then sssd="" fph=request("fpath")&sssd&replace(flst(ptr,0),"&","----")&"/" end if if flst(ptr,1)=0 then sss2="<a href='D_select_upload_pic.asp?fpath="&fph&"'>"&flst(ptr,0)&"</a>" sss22="<a href='D_select_upload_pic.asp?fpath="&fph&"'>" else ss4=fph ss4=left(ss4,len(ss4)-1) ssss4=RelativePath2RootPath("../uploadfile/image/"&ss4) sss2="<a href=# onclick="&chr(34)&"outd('"&ssss4&"')"&chr(34)&">"&flst(ptr,0)&"</a>" sss22="<a href=# onclick="&chr(34)&"outd('"&ssss4&"')"&chr(34)&">" end if %> <%if flst(ptr,1)=0 then%> <%=sss22%> <img src="IMG/Folder/folder.gif" border=0> </a> <%else%> <%=sss22%> <img src="../uploadfile/image/<%=ss4%>" width=50 border=0> </a> <%end if%> </td> </tr> <tr> <td width=160 style="word-break:break-all"> <%=sss2%> </a> </td> </tr> </table> </td> <% ptr=ptr+1 next %> </tr> <% next if nofiles=1 and nofolder=1 then %> <tr width=730 align=center><td> 此文件夹内无内容 </td> </tr> <%end if%> <tr width=730 align="center"><td align="center" colspan=8> <% zong_p=cint((numf1+numf2)/per_p) if ((numf1+numf2) mod per_p)>0 then zong_p=zong_p+1 end if if npage<zong_p then www3="<a href='D_select_upload_pic.asp?page="&npage+1&"&fpath="&request("fpath")&"'>下一页</a>" end if if npage>1 then www2="<a href='D_select_upload_pic.asp?page="&npage-1&"&fpath="&request("fpath")&"'>上一页</a>" end if if npage>=1 then www1="<a href='D_select_upload_pic.asp?page="&"1"&"&fpath="&request("fpath")&"'>首页</a>" end if if npage<=zong_p then www4="<a href='D_select_upload_pic.asp?page="&zong_p&"&fpath="&request("fpath")&"'>末页</a>" end if swww=" "&www1&" "&www2&" "&www3&" "&www4&" "&npage&"/"&zong_p&"页" %> <% =swww %> </td></tr> <% end function %> <table> </div> <script language=javascript> AJAXfade(1,'l_list') AJAXfade(1,'l_do') AJAXfade(1,'l_path') </script> <% AJAXcloseLoader() %>